(COMMENT BPS 16500. LIST 40000 SPECPDL 1000.)
(PROGN
(FASLOAD DEMON FAS DSK (AID RPG))
(HELP)
(COND ((STATUS NOFEATURES NEWIO)
(FASLOAD ESCI FAS DSK (MAC LSP))))
(ESCI-ENB)
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(*RSET T)
T)
;;;((LAMBDA (↑W) (REQUIRE MACLIS INI DSK (/206 CLT))) T)